www.gusucode.com > 深度学习(asp)网址导航 v4.0.1 > 深度学习(asp)网址导航 v4.0.1\code\admin\friendLink\friendLink_Add.asp
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%
projectRootPath = "../../" '相对当前应用程序根的位置
%>
<!-- #include file ="../include/checkPurview.asp"-->
<!--#include file="../../ConnDB.asp"-->
<!-- #include file="../include/Function.Manage.Config.asp"-->
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta name="robots" content="noindex,nofollow" />
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>添加友情链接</title>
<link rel="stylesheet" type="text/css" href="../themes/base.css"/>
<link href="../themes/<%=theme_Path%>/main.css" rel="stylesheet" type="text/css" />
<script language="javascript">
function form1_onsubmit()
{
if (document.form1.SiteName.value=="")
{
window.alert("请输入站点名称");
document.form1.SiteName.focus();
return false;
}
if (document.form1.SiteUrl.value=="")
{
window.alert("请输入站点URL");
document.form1.SiteUrl.focus();
return false;
}
}
</script>
</head>
<body id="bodyBg1">
<br />
<a href="friendLink_Manage.asp">友情链接管理</a> | <a href="friendLink_Add.asp">添加友情链接</a>
<hr class="Nav-hr" />
<br />
<dl class="manageContent">
<dt>添加友情链接管理</dt>
<dd>
<br />
<%
if (Request.Form("SiteName") <> "") then
SiteName=Request.Form("SiteName")
SiteUrl=Request.Form("SiteUrl")
LinkType=Request.Form("LinkType")
IsOK=Request.Form("IsOK")
SiteIntro=Request.Form("SiteIntro")
LogoUrl=Request.Form("LogoUrl")
orderID=Request.Form("orderID")
Set rsFriendSite=Server.CreateObject("Adodb.Recordset")
Sql="Select * from deep_FriendLink"
rsFriendSite.open Sql,conn,3,2
rsFriendSite.addnew
rsFriendSite("fname")=SiteName
rsFriendSite("furl")=SiteUrl
rsFriendSite("ftip")=SiteIntro
rsFriendSite("flogoUrl")=LogoUrl
rsFriendSite("flinkType")=LinkType
rsFriendSite("fisView")=IsOK
rsFriendSite("forderID")=orderID
rsFriendSite.update
rsFriendSite.close
Set rsFriendSite=Nothing
Response.Write("<p align='center'>友情链接：["& SiteName &"] 添加成功</p>")
end if
%>
<form id="form1" name="form1" method="post" action="friendLink_Add.asp" onsubmit="return form1_onsubmit()">
<table width="95%" border="0" align="center" class="tableBoderForm">
<tr>
<td>站点名称：</td>
<td><input name="SiteName" type="text" /> <span class="cRed">*</span></td>
</tr>
<tr>
<td>站点URL：</td>
<td><input name="SiteUrl" type="text" value="http://" size="60" />
<span class="cRed">*</span></td>
</tr>
<tr>
<td>LOGO地址：</td>
<td><input name="LogoUrl" type="text" id="LogoUrl" size="60" /><br />
<iframe ID="UploadFiles" frameborder="0" scrolling="no" width="600" height="25" src="../include/upload_form.asp?SavePath=../../uploadFile/friendLink/&parentBackValue=form1.LogoUrl&MaxSize=500&FileType=gif/jpg/png/bmp&saveName=0"></iframe>
<br />上传图片尺寸 88X31 </td>
</tr>
<tr>
<td>站点简介：</td>
<td><textarea name="SiteIntro" cols="80" rows="8" ></textarea></td>
</tr>
<tr>
<td>友情链接类型：</td>
<td>
<input name="LinkType" type="radio" value="0" checked="checked" />文字连接
<input type="radio" name="LinkType" value="1" />图片连接 </td>
</tr>
<tr>
<td>是否审核：</td>
<td><input name="IsOK" type="radio" value="1" checked="checked" />审核
<input type="radio" name="IsOK" value="0" />未审核</td>
</tr>
<tr>
<td>排序id：</td>
<td><input name="orderID" type="text" id="orderID" value="0" maxlength="5" /></td>
</tr>
<tr>
<td> </td>
<td> <input type="submit" name="Submit" value="添加" />
<input type="reset" name="Reset" value="重置" /></td>
</tr>
</table>
</form>
<br />
</dd>
</dl>
<p align="center"><span class="cRed">*</span> 必添内容</p>
</body>
</html>
<%Call CloseConnDB()%>